
topscrn
 Home:Clear #9
 print #9,cn$,right$("000"+str$(un),3),a3$,ph$,"        ",right$("0000"+str$(info(2)*300),4)
 print #9,right$("0000"+str$(a),2),right$("000"+str$(tc),3)
 print #9,right$("000"+str$(ul),3),right$("000"+str$(dl),3),right$("000"+str$(bp),3)
 for x=1 to 34:print #9,flag(x);:next
 print ^:poke34,4:print sc$
 return
